***Graph WEU market share

gen fiat = market_share if manufacturer == "Fiat"
gen ford = market_share if manufacturer == "Ford"
gen vw = market_share if manufacturer == "Volkswagen"
gen psa = market_share if manufacturer == "PSA"
gen renault = market_share if manufacturer == "Renault"
gen gm = market_share if manufacturer == "GM"


 graph bar vw fiat ford gm psa renault, over(year) stack  /// 
 bar(1, bcolor(gs1))  ///
bar(2, bcolor(gs4)) bar(3, bcolor(gs7)) bar(4, bcolor(gs10)) ///
bar(5, bcolor(gs13)) bar(6, bcolor(gs15))  ///
ylabel(, angle(h)) ytitle("European market share (%)") ///
legend(order(1 "Volkswagen" 2 "Fiat" 3 "Ford" 4 "GM" 5 "PSA" 6 "Renault"))

**this is the same, but with connected lines instead of stacked bars
twoway (bar market_share year if manufacturer == "Volkswagen") ///
	   (bar market_share year if manufacturer == "Fiat") ///
	   (bar market_share year if manufacturer == "Ford") ///
	   (bar market_share year if manufacturer == "GM") ///
	   (bar market_share year if manufacturer == "PSA") ///
	   (bar market_share year if manufacturer == "Renault"), ///
	   legend(order(1 "Volkswagen" 2 "Fiat" 3 "Ford" 4 "GM" 5 "PSA" 6 "Renault"))
		

***Domestic market shares by manufacturers
twoway line market_share year if year > 1999, by(country manufacturer) ///
	legend(order(1 "Volkswagen" 2 "Fiat" 3 "Ford" 4 "Japanese brands" 5 "PSA" 6 "Renault"))
